
-- printTable xs prints each string from the list xs on a line, together with
-- a line number
-- Example: printTable ["apa","bepa","cepa"] prints:
-- 1:apa
-- 2:bepa
-- 3:cepa

printTable :: [String] -> IO ()
printTable xs =
  sequence_ [ putStrLn (show i ++ ":" ++ x)
            | (x,i) <- xs `zip` [1..length xs]
            ]
